home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / Battle of Britain 1 ••••• / Battle of Britain 1 еееее / background_2789.txt next >
Text File  |  1990-08-26  |  5KB  |  135 lines
  1. -- background: 2789 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on detail
  8.   global warning,objective,range,range2
  9.   global avail,standby,patrol,detail,idplane,enroute
  10.  
  11.   if hilite of button avail is false and hilite of button standby is false and hilite of button patrol is false then
  12.     beep
  13.     exit detail
  14.   end if
  15.   if warning is "N" then
  16.     if hilite of button patrol is true then --or warning is "a" OR WARNING IS "E"
  17.       get the loc of button id idplane of card "Map"
  18.       if item 1 of it <range +40 and item 1 of it >range -40 and item 2 of it <range2 +40 and item 2 of it >range2 -40
  19.       then
  20.       send "go" to the target
  21.       exit detail
  22.     end if
  23.   end if
  24. end if
  25. if warning is "l" then
  26.   get the loc of button id idplane of card "Map"
  27.   if item 1 of it <range +80 and item 1 of it >range -80 and item 2 of it <range2 +80 and item 2 of it >range2 -80 then
  28.     send "go" to the target
  29.     exit detail
  30.   end if
  31. end if
  32. put "Too Far." into card field "outOfRange"
  33. beep
  34. show card field "outOfRange" at the mouseh, the mousev
  35. end detail
  36. --FROM BUTTONS "DETAIL"
  37. on goa
  38.   global numSquads,force,avail,standby,patrol,detail,idplane
  39.   set hilite of button avail to false
  40.   set hilite of button detail to true
  41.   set style of button id idplane of card "Map" to rectangle
  42.   show button id idplane of card "Map"
  43.   put "," & the short name of the target after card field "squads" of card "Map"
  44.   add 1 to numSquads
  45. end goa
  46.  
  47. on resultsa                                --FROM BUTTONS "DETAIL"
  48.   global damage,force,bforce,fforce,LESSSQUADS,LESSUS,done
  49.   global released,avail,standby,releaseDate,base,coord,idplane,sorties
  50.  
  51.   IF DAMAGE IS "N" AND FFORCE >0 AND BFORCE >0 THEN EXIT RESULTSA
  52.   set style of button id idplane of card "Map" to transparent
  53.   set hilite of the target to false
  54.  
  55.   if damage is "N" then
  56.     get the hilite of button released of card base
  57.     if it is false then
  58.       set hilite of button avail of card base to true
  59.     end if
  60.   end if
  61.  
  62.   if damage is "l" then
  63.     get the hilite of button released of card base
  64.     if it is false then
  65.       put 2 into word 2 of line 2 of card field id releaseDate of card base
  66.       put DAYS into word 3 of line 2 of card field id releaseDate of card base
  67.       PUT "PATCHING UP PLANES" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
  68.       set hilight of button released of card base to true
  69.       set hilite of button avail of card base to false
  70.       play "boing" a#01
  71.       flash 1
  72.     end if
  73.   end if
  74.   if damage is "H" then
  75.     set hilite of button released of card base to true
  76.     set hilite of button avail of card base to false
  77.     put 4 into word 2 of line 2 of card field id releaseDate of card base
  78.     put "DAYS" into word 3 of line 2 of card field id releaseDate of card base
  79.     PUT "AWAITING AIRCRAFT" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
  80.     play "boing" a#01
  81.     flash 2
  82.   end if
  83.  
  84.   if damage is "K" THEN
  85.     set hilite of button released of card base to true
  86.     set hilite of button avail of card base to false
  87.     put 6 into word 2 of line 2 of card field id releaseDate of card base
  88.     put "DAYS" into word 3 of line 2 of card field id releaseDate of card base
  89.     PUT "AWAITING NEW PILOTS" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
  90.     put empty into card field id sorties of card base
  91.     play "boing" a#01
  92.     flash 3
  93.   end if
  94.  
  95.   show button id idplane of card "Map" at coord
  96.   HIDE BUTTON ID IDPLANE OF CARD "MAP"
  97. end resultsa
  98.  
  99. ON RELEASE                      --FROM BUTTON "RELEASED"
  100.   GLOBAL AVAIL,RELEASEDATE
  101.   subtract 1 from word 2 of line 2 of card field id releaseDate
  102.   if word 2 of line 2 of card field id releaseDate is 1 then
  103.     put DAY into word 3 of line 2 of card field id releaseDate
  104.   else
  105.     put DAYS into word 3 of line 2 of card field id releaseDate
  106.     if word 2 of line 2 of card field id releaseDate <2 then
  107.       set hilite of THE TARGET to false
  108.       set hilite of button avail to true
  109.     end if
  110.   end if
  111. end RELEASE
  112.  
  113. on land
  114.   global coord,patrol,detail,idplane,warning,BBTIME,LANDTIME
  115.   if hilite of button patrol is false and hilite of button detail is false then
  116.     beep
  117.     exit land
  118.   end if
  119.   if warning is not empty then
  120.     beep
  121.     show card field "outOfRange" at the mouseh, the mousev
  122.     exit land
  123.   end if
  124.   set hilite of button patrol to false
  125.   set hilite of button detail to false
  126.   set hilite of the target to true
  127.   set style of button id idplane of card "Map" to transparent
  128.   SHOW button id idplane of card "Map" at coord
  129.   HIDE BUTTON ID IDPLANE OF CARD "MAP"
  130.   PUT BBTIME INTO LANDTIME
  131. end land
  132.  
  133.  
  134.  
  135.